home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / vtoc01.s36 < prev    next >
Encoding:
Text File  |  1991-12-04  |  5.0 KB  |  140 lines
  1. // COPY LIBRARY-P,NAME-VTOC01
  2. *
  3. * VTOC ANALYSIS REPORT
  4. *
  5. * ANALYZES DISK VTOC FOR FILES APPROCHING THEIR CURRENT RECORD ALLOCATION
  6. *
  7. * USAGE: VTOC <PERCENTAGE>
  8. *        WHERE PERCENTAGE IS THE MINIMUM PERCENTAGE OF FILE AVAILABLE
  9. *
  10. * Copyright 1988,89 by David Gibbs, SysOp
  11. *                   The Midrange System BBS
  12. *                   312-439-9679
  13. *
  14. * This program many be freely distributed in any way shape or form as long
  15. * as no fee is charged for the access or distribution.
  16. *
  17. *
  18. // IF DATAF1-VTOC01   DELETE VTOC01,F1
  19. *
  20. // LOAD $LABEL
  21. // RUN
  22. // DISPLAY UNIT-F1,LABEL-ALL,SORT-NAME,OUTPUT-VTOC01
  23. // END
  24. *
  25. // LOAD #GSORT
  26. // FILE NAME-INPUT,LABEL-VTOC01
  27. // FILE NAME-OUTPUT,LABEL-VTOC01,DISP-OLD
  28. // RUN
  29.      HSORTR     8A        3X 132       * SORT VTOC FILE
  30.      I C      22EQCI                   * INCLUDE INDEXED FILES
  31.      IAC      16EQC/
  32.      IOC      22EQCS                   * AND SEQUENTIAL
  33.      IAC      16EQC/
  34.      FNC   1   8                       * SORT ON FILE NAME
  35.      FDC   1 132                       * OUTPUT ENTIRE RECORD
  36. // END
  37. *
  38. // EVALUATE P1,3=?1'025'?
  39. // LOCAL OFFSET-100,DATA-'?1?'
  40. *
  41. // LOAD VTOC01
  42. // FILE NAME-VTOC01,RETAIN-S
  43. // RUN
  44. *
  45. // CEND
  46. // COPY LIBRARY-S,NAME-VTOC01
  47. 0001 U                       P                                            VTOC01
  48. 0002 H    P064                      B       1                             VTOC01
  49. 0003 F*                       *   *  *****   ***     **    ***     *
  50. 0004 F*                       *   *    *    *   *   *  *  *   *   **
  51. 0005 F*                       *   *    *    *   *  *      *   *    *
  52. 0006 F*                       *   *    *    *   *  *      * 0 *    *
  53. 0007 F*                       *   *    *    *   *  *      *   *    *
  54. 0008 F*                        * *     *    *   *   *  *  *   *    *
  55. 0009 F*                         *      *     ***     **    ***   *****
  56. 0010 F*
  57. 0011 F*
  58. 0012 F*          AUTHORED BY DAVID GIBBS              DATE 10/05/88
  59. 0013 F*
  60. 0014 F*  PROGRAM DESCRIPTION -
  61. 0015 F*    ANALIZES DISK VTOC TO DETERMINE WHAT FILES ARE APPROCHING
  62. 0016 F*    SPECIFIED RECORD ALLOCATION
  63.      F*
  64.      F* This program many be freely distributed in any way shape or
  65.      F* form as long as no fee is charged for the access or distribution.
  66.      F*
  67.      F* Copyright 1988 by David Gibbs, SysOp
  68.      F*                   The Midrange System BBS
  69.      F*                   312-439-9679
  70. 0017 F*
  71. 0018 F*
  72. 0019 F*  REVISION
  73. 0020 F*    DATE    BY   VERS   CHANGES
  74. 0021 F*
  75. 0022 F*
  76. 0023 F*
  77. 0024 F*
  78. 0025 F*
  79. 0026 F*
  80. 0027 F*
  81. 0028 F*
  82. 0029 F*  ********************** INDICATOR SUMMARY **********************
  83. 0030 F*
  84. 0031 F*  ID   F    C    EX   L    FUNCTION OF INDICATORS
  85. 0032 F*
  86. 0033 F*      01                   RECORD IDENTIFICATION INDICATOR FOR VTOC
  87. 0034 F*           10              CONDITIONS INCLUSION IN REPORT
  88. 0035 F*
  89. 0036 F*
  90. 0037 F*
  91. 0038 F*
  92. 0039 F*
  93. 0040 F*
  94. 0041 F*
  95. 0042 F*
  96. 0043 F*
  97. 0044 F*
  98. 0045 FVTOC01  IP    132 132            DISK
  99. 0046 FREPORT  O     132 132     OF     PRINTER
  100. 0047 IVTOC01  AA  01
  101. 0048 I                                        1   8 LABEL
  102. 0049 I                                       11  18 DATE
  103. 0050 I                                       22  22 TYPE
  104. 0051 I                                       50  570USED
  105. 0052 I                                       59  660AVAIL
  106. 0053 I                                       79  860ALLOC
  107. 0054 I*
  108. 0055 I           UDS
  109. 0056 I                                      100 1022PCENT
  110. 0057 C           ONCE      DO   *ZERO     ONCE    10       ONLY DO ONCE
  111. 0058 C* CALCULATE FACTOR BY WHICH TO INCREASE ALLOCATION
  112. 0059 C           PCENT     ADD  1         FACTOR  32
  113. 0060 C                     END
  114. 0061 C*
  115. 0062 C           ALLOC     IFNE *ZERO
  116. 0063 C           USED      DIV  ALLOC     FILLED  32
  117. 0064 C                     ELSE
  118. 0065 C                     Z-ADD*ZERO     FILLED
  119. 0066 C                     END
  120. 0067 C           1         SUB  FILLED    REMAIN  32
  121. 0068 C           REMAIN    COMP PCENT                  1010
  122. 0069 C           ALLOC     MULT FACTOR    NEWALO  80
  123. 0070 OREPORT  H                *AUTO
  124. 0071 O                                      'VTOC ANALYSIS REPORT'
  125. 0072 O        D        01 10   *AUTO
  126. 0073 O                         LABEL        'LABEL'
  127. 0074 O                         DATE         'DATE'
  128. 0075 O                         TYPE         'TYPE'
  129. 0076 O                         USED  Z      ''
  130. 0077 O                                C     'USED'
  131. 0078 O                         AVAIL Z      'RECORDS'
  132. 0079 O                                C     'AVAILABLE'
  133. 0080 O                         ALLOC Z      ''
  134. 0081 O                                C     'ALLOCATED'
  135. 0082 O                         REMAINZ      'PERCENTAGE'
  136. 0083 O                                C     'REMAINING'
  137. 0084 O                         NEWALOZ      'RECOMMENDED'
  138. 0085 O                                C     'ALLOCATION'
  139. // CEND